#!d:\perl\bin\perl.exe



use strict;

use warnings;

use Template;

use CGI;



$| = 1;



my $cgi   = CGI->new( );

my $tt    = Template->new( );

my $input = 'cgiparams.html';

my $vars  = {

    cgi   => $cgi,

};



print $cgi->header;



$tt->process($input, $vars)

    || die $tt->error( );
